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NESTE NÚMERO 


ENSINE SEU MICRO A TOMAR DECISÕES 


Programe seu computador para tomar decisões ló- 
gicas, empregando a instrução IF...THEN.... 41 





DIVIRTA-SE COM LABIRINTOS 


A função dos laços e declarações DATA na cons- 
trução de um labirinto. Controle o tempo e o pla- 
car 





COMO DESCOMPLICAR SAVEs E LOADs 


Aparentemente simples, a tarefa de conectar o gra- 
vador ao computador pode apresentar dificuldades. 
vaia COMO FOsONGHAS. ici ces ssissssacr o Se: 
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As vantagens do sistema hexadecimal. Como fa- 
zer conversões do sistema decima para hexa e des- 
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Embora não tenha cérebro, o computador e e re mer SS: —emem = 
tem capacidade para decidir de RERHRBREDS ss RSI | | 
forma lógica. Aprenda a trabalhar com ERRRESE SO cos JESUS | 
a instrução IF... THEN e ensine seu | Nes AEE PN Sri Spear | Frades | 
micro a tomar decisões corretamente. | = 


O que torna um computador infini- 
tamente superior a uma máquina de cal- 
cular é sua capacidade de tomar decisões 
baseadas em raciocínios lógicos. Um 
desses raciocínios é o comando 
IF... THEN. O computador reage a es- 
sa declaração de modo semelhante a um 
ser humano: SE (IF) isto é verdadeiro, 
ENTAO (THEN) faça tal coisa. Eis um 
exemplo: 

IF A<18 (ou seja, SE A é menor que 
18) THEN PRINT “menor de idade” 
(ENTAO IMPRIMA “menor de idade”) 

Ao encontrar a declaração IF, o com- 
putador verifica se a proposição que a 
segue é verdadeira. Se for, ele executa 
tudo o que estiver após o THEN, Se a 
proposição é falsa, ele ignora o resto e 
passa para a próxima linha do programa. 

Você verá como funciona tudo isso 
no programa a seguir. 


Ss 


10 PRINT "Digite a lista das no 
tas” 

20 PRINT "Digite -99 para termi 

nar” 

30 INPUT N 

dO IF N=-99 THEN PRINT "Média = 
".T/C:STOP 

50 LET T=T+N 

60 LET C=C+1 

70 GOTO 30 


A mensagem no início do programa 
instrui o usuário a digitar primeiro uma 
lista de notas e por fim o número -99, 
As linhas 25 e 26 zeram o valor das va- 
riáveis do total (T) e do contador (€). 
A linha 30 dá entrada ao valor que vo- 
cê digita. A linha 50 adiciona esse valor 
ao total corrente, e a linha 60 conta 
quantos números você digitou, adiício- 
nando 1 à variável do contador cada vez 
que um novo número é dado. 

Enquanto você estiver digitando no- 
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tas reais, o computador ignorará a linha 
40 e seguirá em frente, mas, quando vo- 
cê digitar -99, a condição da linha 40 
N=-99 será satisfeita, e o computador 
imprimirá a média das notas (T/C). Nú- 
meros como -99 são chamados de fictí- 
cios, ou terminais, e são úteis para con- 
trolar o que acontece em um programa. 
Este é um recurso muito usado para in- 
terromper partes de um programa. 





UMA ESCOLHA COM TRÊS CAMINHOS 


E se você quiser escolher entre três ou 
mais alternativas, de modo a colocar o 
computador em diferentes cursos de 
ação? É simples: o computador sorteia 
um número que você tem de adivinhar; 
ao comparar o seu palpite com o núme- 
ro sorteado, ele elabora três alternativas: 
o palpite foi correto, foi muito baixo, 
ou muito alto. Tudo se passa, portan- 
to, como num jogo de advinhação. 


“um 

5 CLS 

10 LET N=RND(20) 
20 PRINT “ACABO DE 
NUMERO...” 

30 PRINT "TENTE ADIVINHA-LO!” 
40 INPUT G 

ESO IF G=N THEN PRINT "MUITO BEM 


IMAGINAR UM 


I":-FOR D=1 TO 2000:NEXT D:GOTO 


10 

60 IF G<N THEN PRINT “ESTA BAIX 
O, TENTE OUTRA VEZ!" 

70 IF G>N THEN PRINT "MUITO ALT 


O! TENTE DE NOVO.” 


Bo GOTO 40 


Atenção: digite o programa abaixo 
em maiúsculas, se quiser executá-lo nos 
compatíveis com ZX-81: 


5 CLS 
10 LET N=INT (RND*20)+1 
20 PRINT “Eu acabo de imagina 
Fr um numero.” 


30 PRINT "Tente adivinha-lo.” 
40 INPUT G 

50 IF G=N THEN PRINT "Muito 

bem!": PAUSE 100: GOTO 10 

60 IF G<N THEN PRINT “Esta Db 
aixo; tente outra vez!" 

70 IF G>N THEN PRINT "Muito 

alto! Tente de novo.” 

80 GOTO 40 

NIE Jo, 


o ga o. pm 


O programa abaixo, como está, ro- 
dará apenas nos micros tipo MSX. Pa- 


ra rodá-lo no Apple IL e no TK-2000, 
elimine a linha 3 e substitua o comando 
da linha 5 por HOME. 


3 R=RND(-TIME) 

5 CLS 

10 LET N=INT(RND(1)*21) 

20 PRINT "Acabo de pensar e um 


número” 

30 PRINT "...será que você cons 
eque advinhá-lo 7” 

40 INPUT G 


50 IF G=N THEN PRINT “Certo, mu 
ito bem!":FOR D=1 TO 2000:NEXT 
D:GOToO 5 

60 IF G<N THEN PRINT 
xo, tente outra vez.” 
70 IF G>2N THEN PRINT 
is, tente outra vez.” 
BO GOTO 40 


"Muito bai 


"Alto dema 


A linha 10 escolhe um número ao 
acaso entre 1 e 20, e as linhas 20 a 40 
convidam você a adivinhá-lo. Qualquer 
que seja sua resposta, o computador ve- 
rifica, nas linhas 50, 60 e 70, que pro- 
posição é verdadeira. 

Suponha que seu palpite seja um nú- 
mero abaixo do sorteado. Neste caso, o 
computador vai primeiro para a linha 
50; mas P=N é falso, de modo que ele 
ignora o resto da linha e passa para a 














seguinte, a linha 60. Agora, a proposi- 
ção é verdadeira, visto que P<N, En- 
tão, ele imprime a mensagem **Muito 
baixo, tente novamente”. A seguir, ele 
passa assim mesmo para a próxima li- 
nha, onde a proposição é falsa, de for- 
ma que ele a ignora e vai para a 80, que 
leva você de volta para outra tentativa. 

Este programa funciona muito bem, 
mas tem uma desvantagem: ele continua 
a pedir um novo palpite ao jogador, sem 
se importar se este quer ou não conti- 
nuar jogando. Seria interessante fazer 
com que o computador preguntasse se 
você quer fazer uma nova tentativa. 

As próximas linhas fazem exatamente 
isso. O comando IF...THEN será nova- 
mente utilizado, só que desta vez o com- 
putador estará comparando letras e não 
numeros. 

Antes de entrá-las em adição ao pro- 
grama anterior, não esqueça de mudar 
a linha 50 para: 


e TT E > ——— —— 


50 IF G=N THEN PRINT "CERTO, 
MUITO BEM!" :GOTO 100 


100 PRINT 
S/N)” 

110 LET AS=INKEYS: IF AS=""THEN 
GOTO 110 

120 IF AS$="S” THEN RUN 


100 PRINT "Voce quer tentar ou 
tra vez(S/N)?7" 

110 LET AS=INKEYS: IF AS<>"S”" 
AND AS<>"N”" THEN GOTO 110 

120 IF AS$="S5" THEN RUN 


lá io) 


Atenção: para poder rodar o progra- 
ma abaixo em computadores tipo Ap- 
ple e TK-2000, substitua a linha 


"QUER JOGAR DE NOVO? ( 


110 GET AS 


100 PRINT 
ez (5/N)?7” 
110 LET AS=INKEYS: 
N GOTO 110 

120 IF AS$="S" OR AS="5” 
TO 5 


» +, "Quer jogar outra V 
IF AS="* THE 


THEN GO 


A linha 110 espera que você acione 
uma tecla. Caso seja o “'S” maiúsculo, 
o programa continuará. Se qualquer ou- 
tra tecla for acionada, o programa ter- 
minará. 





CHECAGEM DUPLA 





Para fazer o computador testar duas 
ou mais condições, antes de decidir que 
caminho tomar, use palavras especiais 
chamadas operadores lógicos: 


100 IF D$="DOMINGO” AND H=20 
THEN PRINT "E' HORA DO 
FANTABTICO” 


Quando você usa AND (a conjunção 
e, em inglês) entre duas condições, am- 
bas devem ser verdadeiras para que o 
computador execute o resto da linha. Se 
uma delas ou as duas forem falsas, ele 
passará para a próxima linha. Nesse 
exemplo é necessário que sejam 20 ho- 
ras de um domingo para que o compu- 
tador imprima mensagem. Veja outro 
exemplo: 


200 IF P$-"SAGU” OR 
P$="TAPIOCA” THEN PRINT 
"NAO ESTOU COM FOME” 


Essa linha usa OR (ou, em inglês) e 
o computador imprimirá a mensagem 
no caso de pelo menos uma das compa- 
rações ser verdadeira. 

O teste pode vir a ser muito compli- 
cado se houver uma quantidade muito 
grande de condições para verificar. Se 
você tem vários AND e OR juntos, terá 
que usar parênteses para que o compu- 
tador saiba o que verificar primeiro. 

Uma linha de um jogo de aventuras 
pode se parecer com isto: 


2000 IF P=14 AND (C5=" ESPADA” 
OR CS="FACA”) THEN PRINT 
"VOCÊ DESTRUIU O GREMLIN” 


Isso só é verdadeiro se você estiver na 
posição 14 E com uma espada OU uma 
faca. Mude os parênteses: 


2000 IF (P=14 AND CS=" ESPADA”) 
OR CS$="FACA” THEN PRINT 
"VOCE DESTRUIU O GREMLIN” 


Agora ela será verdadeira se você es- 
tiver na posição 14 com uma espada OU 
se estiver em qualquer lugar com uma 
faca. 


TIRE A SORTE GRANDE | 


Agora, usando os conceitos que 
aprendemos, vamos programar um jo- 
guinho que simula uma máquina caça- 
níqueis. Ela faz um bom uso de AND 
e OR, Tente tirar a sorte grande! 


20 LET M=50 
30 CLS 


| para significar “diferente de”. 


| | 





40 LET M=M-5 

50 IF M<O THEN PRINT "DESCULPE. 
«. VOCÊ ESTA DURO!" : END 

60 LET A=RND(12)+192 

70 LET B=BRND(12)+192 

BO LET C=RND(12)+192 

210 PRINT €237,CHRS (A): PRINTE23 
9, CHARS (B): PRINT €241,CHRS(C) 
220 IF A=B AND B=C THEN PRINT & 
258, "VOCE GANHOU S50!!!I"P:LET M= 
M+50 

230 IF (A=B OR B=C) AND A<>C T 
HEN PRINT €361,"VOCE GANHOU S10 
IP:LET M=M+10 

240 FOR D=1 TO 500:NEXT 

250 PRINT 8323," QUER JOGAR OUTR 
A VEZ? (8/N)”:PRINT €361,"VOCE T 
EM S";M 


OS OPERADORES LÓGICOS 

Se você não está acostumado com 
os símbolos usados em matemática pa- 
ra expressar relações lógicas, como 
“maior que” e ''menor que” — os cha- 
mados operadores — pode achá-los 
meio confusos, no início. 

Assim, pense neles como uma es- 
pécie de cunha. No símbolo > o lado 
mais aberto, à esquerda, é maior do 
que o lado mais agudo (a ponta). No 
símbolo < o lado mais estreito, à es- 
querda, é menor do que o lado direito. 
Deste modo, a expressão A >B deve ser 
lida simplesmente: À é maior do que B. 
Colocar o sinal de igualdade (=) ao la- 
do de um dos operadores prévios sig- 
nifica também que pode ser ''maior ou | 
igual a”” ou “menor ou igual a”. | 

Eis aqui a lista de todas as combi- 
nações possíveis: 

A=B :AéigualaB 

A>B : À é maior que B 

A<B : À é menor que B 
A>=B:A é maior ou igual a B 
A<=B: A émenor ou igual a B 
A<>B: A é diferente de B 


Alguns computadores exigem que a | 
ordem de digitação dos operadores | 
compostos seja sempre a mesma. Por | 
exemplo, não se pode digitar > = ou 
= > indistintamente: eles não vão acei- 
tar. Em outros micros, o esquema é 
mais liberal. 

Nos computadores da linha Sinclair 
os operadores compostos são digitados 


| através de uma única tecla. Dessa for- 


| ma, se você tentar entrar o sinal < se- 
guido do sinal =, por exemplo, a linha 
gera um erro de sintaxe. 
Finalmente, alguns computadores 
aceitam também o sinal * (sustenido), 
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Posso combinar dois ou mais IF... THEN 
em uma única linha? 

Sim, mas esta não é uma idéia mui- 
to boa, pois dificulta muito a compreen- 
são de como funciona um procrama e 
pode gerar erros lógicos. 
| O princípio básico da declaração 

IF... THEN é que o que vem depois do 
| THEN na linha do IF, só será executa- 
do se a proposição for verdadeira. As- 
sim, na linha: 


70 IF X=Y THEN PRINT "NAVE 
DESTRUIDA” LET NAVES= 
NAVES-1:GOTO 30 


Nenhuma das instruções após o 
THEN será executada, se X for diferen- 
te de Y. Mas, algumas vezes o IF com- 
posto pode ser útil: 


70 IF X=Y THEN PRINT "NAVE 
DESTRUIDA”: IF NAVES>OITHEN 
LET NAVES=NAVES-1 


BO IF X=Y AND NAVES=0 THEN 
PRINT "FIM DO JOGO”: END 


Note como os dois IFs na linha 70 | 


simplificam a programação. 


| Por que ocorrem erros quando tento ro- 
| dar programas digitados? 

Pode ser que existam falhas no pro- 
grama em si, mas os erros mais co- 
| muns são de digitação, quando se está 
copiando. Eis alguns deles (lembre-se 
de checá-los um a um, quando estiver 
copiando programas): 

— Confundir a letra maiúscula | ou a le- 
tra L minúscula com o número 1; ou 
ainda a letra O maiúscula com o zero. 


— Confundir parênteses com os sinais | 


de maior (>) e menor (<). Confundir 
o cifrão (5) com a letra S, ou omiti-los. 
— (Qmitir as aspas no começo ou no 
fim, em comando PRINT ou LET. Omi- 


tir os dois pontos (:) entre instruções | 


na mesma linha. 

— Esquecer a vírgula entre dois [tens 
de uma declaração DATA, o que pode 
determinar um número muito grande 
para o computador, ou a falta de um 


item quando o computador chega ao fi- 


nal dos DATA. 

— (QOmitir um sinal de menos (em um 
programa que gera gráficos na tela, is- 
so pode resultar em uma tentativa de 
desenhar além dos seus limites). 

— QOmitir um sinal de ponto e vírgula no 
final de uma linha PRINT ou colocar um 


| número de espaços em branco maior | 


ou menor do que o previsto. 








260 LET K$=INKEYS: IF K$="” THEN 
GOTO 260 

270 IF K$="S* 
280 END 


THEN GOTO 30 


20 LET M=-50 
30 CLS 
40 LET M=M-5 
50 IF M<O THEN PRINT "Descul 
pe... Voce esta duro!”: STOP 
60 LET A=INT (RND*12)+130 
7O LET B=INT (RND*12)+130 
BO LET C=INT (RND*12)+130 
210 PRINT PAPER O; INK 4;AT 
10, 14;CHRS A;AT 10,16;CHAS B; 
AT 10,1B;CHRS C 
220 IF A=B AND B=C THEN 
PRINT AT 13,2;"Voce ganhou $50 
Lil”: LET M=M+50 
230 IF (A=B OR B=C) AND A<>C 
THEN PRINT AT 13,9;"Voce qganh 
ou 8101": LET M=M+10 
240 PAUSE 25 
250 PRINT AT 15,6;"Quer Jogar 
outra vez? (S/N)": PRINT TAB 10 
;i"Voce tem S";M 
260 IF INKEYS="" THEN GOTO 
260 
270 IF INKEYS="n” 
280 GOTO 30 


20 LET M=-50 

30 CLS 

40 M=M-5 

50 IF M<O THEN PRINT "Desculpe, 
seu dinheiro acabou.” : END 

60 LET A=INT (RND(1)*5+66) 

70 LET B=INT(RND(1)*5+66) 

BO LET C=INT(RND(1)*5+66) 

90 LOCATE 17,10:PRINT CHRS(1)+C 

HRS (A);" ";CHRS(1)+CHRS(B);” *; 

CHARS (1) +CHRS (C) 

220 IF A=B AND B=C THEN LOCATE 
2, 16:PRINT " Você ganhou o prêm 
jo máximo ... S50":LET M=M+50 
230 IF (A=B OR B=C) AND A<>2C TH 

EN LOCATE 10,16:PRINT "Você qgan 

hou 810" :LET M=M+10 

240 FOR D=1 TO 500:NEXT 

250 LOCATE 5,18:PRINT ”" Quer te 

ntar outra vez 7? (5/N)” 

260 LOCATE 12,20:PRINT 

n Sm": E 

270 LET KS=INKEYS:IF K$="" THEN 
GOTO 270 

280 IF K$="5” 

TO 30 

290 END 


Como o Apple II não tem caracteres 
gráficos pré-definidos, a versão a seguir 


faz na tela blocos coloridos (simbolos do 
caça-níqueis): 


THEN STOP 


"Você te 


OR K$="S” THEN GO 


20 LET M = 50 
30 HOME : GR 





40 LETM=M- 5 
S0 IF M< O THEN VTAB 22: PRI 
NT "DESCULPE, VOCE ESTA DURO”: 


END 

60 LET A = INT ( RND (1) * 12 
+ q) 

70 LET B = INT ( RND (1) * 12 
+ 4) 

BO LET C = INT ( RND (1) * 12 
+ 4) 


B5 COLOR= A: VLIN 0,39 AT 16 
90 COLOR= B: VLIN 0,39 AT 18 
95 COLOR= C: VLIN 0,39 AT 20 
110 IF A =B ANDB=CTHENÕGV 
TAB 22: PRINT "VOCE GANHOU 5350 
": LET M = M+ 50 


120 IF (A=-BORB-=-C) ANDA 

< > C THEN VTAB 22: PRINT "VO 

CE GANHOU $10"; LET M = M + 10 

130 FOR I = 1 TO S00: NEXT I 

140 VTAB 22: PRINT "OUTRA VEZ? 
(5/N)?7": PRINT "VOCE TEM 5";M 

150 GET AS 

160 IF AS = "Nº THEN END 

170 GoTo 30 


[5] 


A versão para o TK-2000 usa os ca- 
racteres do teclado. Só as linhas que se- 
rão substituídas no programa acima 
aparecem abaixo: 


30 HOME 

60 LET A = INT ( RND (1) * 12 
y + 22% 

70 LET B = INT ( RND (1) * 12 
* + BEL 

BO LET C = INT ( RND (1) * 12 
4 + 222 


90 VTAB 10 


100 PRINT TAB( 1B); CHARS (242 
); CHR$ (A); TAB( 209; CHARS (24 
2): CHARS (B); TAB( 22); CHRS (2 
42); CHR$ (C) 


O programa usa várias linhas 
IF... THEN. A primeira, de número 50, 
checa se você tem dinheiro para jogar. 
Se você tem, a linha é ignorada, mas, 
se não, uma mensagem é mostrada, e O 
jogo termina. 

As linhas 60 a 80 escolhem três nú- 
meros aleatórios, e a linha 210 converte 
esses números em caracteres (no caso 
dos computadores das linhas TRS- 
Color, Spectrum e MSX, naipes de ba- 
ralho) e os coloca no centro da tela. O 
Sinclair e o TRS-Color convertem esses 
números em caracteres. Os outros neces- 
sitam de ajustes, 

Na linha 220, se os três caracteres são 
iguais, você ganha o jack pot (maior 
prêmio) e seu dinheiro é aumentado em 
$50. Na linha 230 você ganha $10 se dois 
caracteres adjacentes são iguais (A = B 
ou B=C), mas não ganha nada se os 
dois caracteres das extremidades são 
iguais. Se você não ganhar nada, o com- 
putador ignora as linhas 220 e 230 e pas- 











sa para a 240, que provoca uma breve 
pausa, 

As linhas seguintes são uma outra 
versão da rotina “sim/não”” que checam 
se você quer uma nova jogada. 





IF... THEN...ELSE 


Em alguns computadores você pode 
escrever a instrução IF de uma forma 
muito mais poderosa, chamada de 
IF... THEN...ELSE. Veja um exemplo: 


10 INPUT IDADE 

20 IF IDADE<18 THEN PRINT 
"MENOR DE IDADE” ELSE PRINT 
"ELEGIVEL” 


Esta linha faz exatamente o que diz. 
Se você tem menos de 18 anos, o com- 
putador imprime “MENOR DE IDA- 
DE”, mas, se você tiver 18 ou mais, ele 
imprimirá “ELEGIVEL” 

Dos computadores que apresentam a 
declaração IF... THEN...ELSE em seu 
repertório de BASIC apenas os das li- 
nhas TRS-80 e MSX estão ilustrados 
aqui. 

Com a instrução IF...THEN...ELSE 
o programa fica mais fácil de ler e es- 
crever. No entanto, ela não é essencial. 
Você pode escrever programas sem ela 
se o seu computador usa apenas 
IF... THEN. Existem duas maneiras de 
contornar o problema. Uma emprega 
IF... THEN seguido de GOTO para pu- 
lar para a parte requerida do programa: 


10 INPUT IDADE 

20 IF IDADE<18 THEN PRINT 
"MENOR DE IDADE":GOTO 30 

25 PRINT "ELEGIVEL” 

30 ...restante do programa 


Esse tipo de programação serve para 
os micros que permitem comandos muil- 
tiplos por linha, isto é, a colocação de 
mais de uma instrução na linha do IF. 
Os compatíveis com o ZX-81 não con- 
tam com essa possibilidade. A segunda 
solução do problema apóia-se num 
IF... THEN extra para assegurar que to- 
das as possibilidades sejam cobertas: 


10 INPUT IDADE 

20 IF IDADE<1IB THEN PRINT 
"MENOR DE IDADE” 

25 IF IDADE >=18 THEN PRINT 
"ELEGIVEL” 


30 ...restante do programa 


Como dois IFs demoram mais tem- 
po do que um só para serem executados 
(e isso é importante quando o mesmo 
trecho de programa deve ser executado 
muitas vezes), outro estilo de programa- 
ção de alternativas é: 


E 








INPUT IDADE 

IF IDADE>=18 THEN GOTO 25 
PRINT "MENOR DE IDADE” 
GOTO 30 

PRINT "ELEGIVEL” 

.«..resto do programa 


Nas duas últimas programações, é 
mais difícil entender o fluxo de desvios 
do que o programa com apenas uma li- 
nha IF... THEN...ELSE. 




















Jogos com labirintos exerceram sem- 
pre um grande fascínio sobre usuários de 
computadores, e variações do tão co- 
nhecido “Come-come”” (PacMan) con- 
tinuam a aparecer constantemente no 
mercado. 

Este artigo lhe ensina a entrar na on- 
da e fazer um emocionante jogo de la- 
birinto. 

O labirinto, nesta primeira tentativa, 
não inclui “inimigos” ou obstáculos, 
que exigiriam um programa bem maior, 
Mas ele mostra como fazer para que os 
personagens do seu jogo não atravessem 
as paredes e inclui também cronometra- 
gem, manutenção de um placar e uma 
rotina de registro de recordes, para dar 
mais competitividade ao jogo. 


A maneira mais fácil de compreender 
como os jogos com labirinto funcionam 
nos micros da linha Sinclair Spectrum, 
como o TK90X, é ir por etapas: 


100 FOR n=3 TO 17 

110 READ as 

120 FOR nm=7 TO 21 

130 PRINT AT n,m;".” 

140 IF aS(m-6)="p” THEN 
PAPER 1; INK 1;AT n,m;" 


PRINT 








150 NEXT m 
160 NEXT n 


9000 DATA "PpppPPPPPPPPPPpPpp” 


OOMGCDATA COS. sauna sia p” 
9020 DATA "p.PppP.PP.PP.PP.P” 
9030 DATA "P.P...cccuo.. Dep” 


9040 DATA "p...p.p.P.p...p" 
9050 DATA "p.PPpp.p.p.Ppp.p” 


9060 DATA "Pp..... o A Pp” 
9070 DATA “Pppp.Pp.PPp.PPppp” 
9080 DATA "Pp..... DD sais p* 


9090 DATA "p.Ppp.p.P.Pppp.p” 
9100 DATA "p...P.Pp.P.P...p” 


GLILO DATA COsBo cce seas p.p” 
9120 DATA "p.Ppp.Pp.PP.Pp.Pp” 
tao DATA: Dsxsusaiias pisado pDº 


9140 DATA "PPPPPPPPPPPPPpPp” 


As linhas 100, 120, 150 e 160, usan- 
do um par dos nossos já conhecidos la- 
ços FOR...NEXT, determinam os limi- 
tes do labirinto. A linha 130 imprime um 
ponto em cada posição da tela dentro 
desses limites. 

As linhas 110 e 140 lêem os dados das 
linhas 9000 a 9140 e substituem o pon- 
to por um espaço em fundo azul, onde 
o padrão dos dados mostrar um “*'p””. 


Jogos com labirintos complicados 
exigem programas muito longos. 
Mas você pode construir alguns 

bem simples com pouco mais do que 
um laço e declarações DATA. 





Isto é possível porque o TK90X nunca 
coloca dois caracteres na mesma posi- 
ção; então, o último toma o lugar do 
primeiro. 


O “COME-COME” 





Um labirinto é inútil se não há nin- 
guém ou algo para andar dentro dele. 
Então execute o programa acima para 
ver como fica e depois acione as seguin- 
tes linhas: 


50 LET x=10 

60 LET vy=l4 
1000 PRINT PAPER 6; INK Z;AT x 
a Aide 
1010 LET xx=x 
1020 LET vy=Y 
1030 IF INKEY$S="" THEN 
30 
1040 IF INKEYS="w" AND ATTR (x- 
1,v)<>9 THEN LET x=x-1 
1050 IF INKEYS="z" AND ATTR (x+ 
l,vy)<>9 THEN LET x=x+1 
1060 IF INKEYS="a” AND ATTR (x, 


GOTO 10 





do 
SIC 
sel 
us 


"x 





E | OSPRINCÍPIOS DA CRIAÇÃO E O PLACAR 
“DEUMLABIRINTO E COMO MOVER UMA FIGURA 

Es CONSTRUA UM LABIRINTO PELO LABIRINTO 
COM LAÇOS E COMANDOS DATA FAÇA PAREDES 

mn CONTROLE O TEMPO INTRANSPONÍVEIS 


Cd 
a 


do 


n- 
le. 
ra 
n- 





y-1)<>9 THEN LET y=y-l 

1070 IF INKEYS="s” AND ATTR (x, 
y+1)<>9 THEN LET vy=y+] 

1080 PRINT INK Z;AT xx,vy;" " 
1090 GoTO 1000 


Como todos os personagens famosos 
dos jogos, nosso amigo asterisco é po- 
sicionado em x,y e se movimenta, aos 
seus comandos, por uma série de linhas 
usando INKEYS. 

Aqui, no entanto, há uma determi- 
nada diferença vital: ele só pode mover- 
se para uma posição se esta não for azul. 
Ou seja, se ATTR não for igual a 9, sen- 
do 9 o valor numérico da cor com a qual 
você imprimiu as linhas do seu labirinto. 

No caso de você querer criar um la- 
birinto de outra cor, veja como chegar 
ao valor de ATTR: 

|. Tome o valor da cor do caractere 
(INK), como está no teclado do compu- 
tador — neste caso 1, 

2. Tome o valor da cor da tela (PA- 
PER) — neste caso 1 — e multiplique 
por 8. Resultado, 8. 





3. Adicione 64 se à área em questão 
é clara (BRIGHT). Neste caso, resulta- 
do 0, | 

4. Adicione 128 se a área está piscan- 
do (FLASH). No caso, resultado 0. 

Some então todos os números. O re- 
sultado será o valor de ATTR. 

A função ATTR no TK90X tem, en- 
tretanto, outros usos além de impedir 
que o seu personagem atravesse paredes 
sólidas. 

Em um labirinto maior, você pode- 
ria usar a mesma idéia para fazer com 
que ele exploda ao entrar em uma zona 
proibida. Para um labirinto que use ca- 
racteres (INK) vermelhos sobre fundo 
(PAPER) vermelho, você necessitaria 
uma linha começando com: 


IF ATTR=18 THEN... 


As linhas 1010, 1020 e 1080 definem 
a posição que o personagem acabou de 
deixar e apagam o ponto que ele “'co- 
meu”, imprimindo um espaço. Estas 
são linhas úteis em qualquer jogo, mas 
note onde elas aparecem — as primei- 
ras linhas, antes das INKEY$, respon- 





sáveis pela ação, e a linha final, logo 
após estas. 

A linha 1090 é temporária e será rees- 
crita depois. Seu propósito é permitir 
que você rode o programa e o teste. Sem 
fechar o laço, o caractere se moveria 
apenas uma vez. 





TEMPO E PLACAR 


Para que esse Jogo possa ser jogado, 
sem contar com “inimigos” que exigi- 
riam um programa muito complexo, o 
melhor é uma rotina de cronometragem 
e placar. 

Adicione estas linhas: 


10 LET bt=100000 

40 LET s=0 

990 POKE 23672,0: POKE 2367/3,0 
1025 IF s=110 THEN GOTO 2000 
1090 IF ATTR (x,y)<>263 THEN LE 
T s=s+1l: SOUND .005,10 











2000 LET t=(PEEK 23672+256*PEEK 
23673)/50 
2010 PRINT AT 1,6;t;” SEGUNDOS 


2020 IF t<bt THEN LET bt=t 
2030 PRINT AT 19,4;"Melhor temp 
o: ":;bt;" segundos” 


Acrescentando uma linha temporá- 
ria. Lembre-se de apagá-la depois: 


1100 GoTo 1000 


O placar é muito simples. A linha 40 
coloca a contagem inicial em zero. A li- 
nha 1090 adiciona | cada vez que o 
“Come-come”” devora mais um ponto, 
ou melhor, sempre que ele cruza um es- 
paço em que INK e PAPER são ambos 
brancos — ATTR novamente. 

E a linha 1025, que entra em açãoe 
quando todos foram comidos, faz com 
que o computador verifique quanto tem- 
po o jogador levou para chegar a esse 
ponto. 

Já a cronometragem é um pouco 
mais complicada. Até que você com- 
preenda os comandos PEEK e POKE, 
que serão explicados num artigo próxi- 
mo, procure assimilar o procedimento 
que se segue. 

Em resumo, a linha 990 zera o reló- 
gio do TK90X ao jogar o valor O num 
endereço de memória apropriado. A li- 
nha 2000 conta o número de linhas for- 
madas pela tela desde que o jogo come- 
çou e então divide por 50 — o número 
de linhas por segundo em um televisor. 

Ao mesmo tempo, a linha 10 deter- 
mina o ''melhor tempo” inicial em 
100000, muito mais que qualquer um le- 
varia, de forma que ele será batido. A 
linha 2020 compara o novo tempo com 


[2 ' 


o “melhor tempo”. 
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e OUTRA VEZ? | 


Para dar ao jogador a chance de ou- 
tra tentativa, use estas novas linhas. Pri- 
meiro, pressione <CAPS SHIFT> e 
<BREAK> e, então, <ENTERS: 


2040: PRINT AT 20,2; Pressione q 
ualquer tecla para jogar de n 


OVO."; 

2050 IF INKEYS<>"" THEN GOTO 2 
050 

2060 IF INKEYS="" THEN GOTO 20 
60 


20/70 RESTORE 
2080 GOTO 40 


OUTROS LABIRINTOS 





Se você quiser tentar outros labirin- 
tos do mesmo tamanho, pode fazê-lo, 
mudando o padrão de letras “'p”” das hi- 
nhas DATA, da linha 9000 em diante. 
Se fizer isso, assegure-se de ter dados su- 
ficientes para completar o labirinto ou 
terá uma mensagem de erro antes que 
apareça na tela. 


Estas primeiras linhas formam o la- 
birinto propriamente dito: 


30 cLS4 

40 LET P=297 

1000 FOR N=0 TO 15 
1010 READ AS 

1020 PRINT €(N*32)+60,4A45; 

1030 FOR M=0 TO 16 

1040 IF PEEK(1024+(N*32)+6+M) =6 
5 THEN POKE (1024+(N*32) +6+M) , 1/7 
5 

1050 NEXT M 





1060 NEXT N 
2000 DATA AAAAAAAAAAAABAAAAÃA 


2010 DATA A....... ABA. ......A 
2020 DATA A.AA.AA «BA.AR. À 
2030 DATA A.A.....AhA.....A.A 
2040 DATA A...A.A..... A.A...h 
2050 DATA A.AAA.AA.A.AA.AAA, A 
2060 DATA A...h...... A...Ã 
2070 DATA AAA...A.AAA.A...AAA 
2080 DATA AAA A.AAA.A... AAA 
2090 DATA A...h.........A...A 
2100 DATA A.AAA.AA.A.AA.AAA.A 
2110 DATA A...A.Ã..... A.A...A 
2120 DATA A.A..... AAA. .... A.h 
2130 DATA A.AA.AA..... AR. AA. À 
2140 DATA A....... AAA. ...... A 


2150 DATA AAAAAAAAAAAAAAAAADA 


A forma do labirinto está contida nas 
linhas de dados (DATA), de 2000 a 
2150. Nesse estágio os limites dele são 
representados por letras “A. 

Antês que os dados sejam lidos, a li- 
nha 30 limpa a tela e a coloca na cor ver- 
melha, cujo código é 4. A linha 40, por 
sua vez, coloca o asterisco na posição 
inicial, 

As linhas de 1000 a 1060 desenham 
o labirinto na tela. Ao mesmo tempo, 
sempre que o laço FOR...NEXT das li- 
nhas 1000 e 1060 é executado, O progra- 
ma lê a próxima linha de dados 
(DATA). 

A linha 1010 lê os dados e os chama 
de A$. A linha 1020 coloca-os na tela. 

A linha 1040 verifica a porção da me- 
mória da máquina que corresponde a 
cada posição de tela. Se o endereço de 
memória contém o número 65, temos 
um “A” na tela, e ele é mudado para 
um bloco azul (código 175). As linhas 
1030 e 1050 fornecem o /00p com que 
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a linha 1040 verifica todas as posições 
da tela. 

Agora adicione essas linhas e você 
poderá deslocar um homenzinho pelo la- 
birinto. 


1080 PRINT €P,"*"; 

1090 LET LP=P 

1100 IF PEEK(340)=247 AND PEEK( 
1023+P)<>175 THEN LET P=P-1 
1110 IF PEEK(338)=247 AND PEEK( 
1025+P)<>175 THEN LET P=P+1 
1120 IF PEEK(338)=251 AND PEEK( 
992+P)<>175 THEN LET P=P-32 
1130 IF PEEK(342)=253 AND PEEK( 
1056+P)<>175 THEN LET P=P+32 
1150 PRINT GLP," "; 

1170 Goto 1080 


Esta parte do programa permite que 
você mova o seu caractere pelo labirin- 
to. Ela tem algumas particularidades. O 
homem só pode ser movimentado se O 
ponto para onde se quer levá-lo não con- 
tém um bloco azul. A linha 1100 verifi- 
ca o conteúdo de duas posições de me- 
mória: a que corresponde à tecla *'Z” 
e a que corresponde à posição de tela em 
que o homem vai entrar. Se a tecla “'Z” 
(código 223) está sendo pressionada e o 
endereço de tela não contém um bloco 
azul (código 175), então ele pode se mo- 
vimentar, 

As teclas para controle de movimen- 
to são as mesmas já utilizadas: “Z'' pa- 
ra a esquerda, “X” para a direita, “P” 
para cima e “'L”” para baixo. Tente an- 
dar com o asterisco pelo labirinto de for- 
ma que os pontos sejam apagados. 
Acrescente estas linhas e marque o tem- 
po necessário para ''comer”” os pontos: 


20 LET FA=999999 

50 RESTORE 

60 LET D=0 

1070 TIMER=0 

1140 IF PEEK(1024+P)=110 THEN P 
LAY "TBOB”:LET D=D+1 

1160 IF D=153 THEN GOTO 1180 
1180 PRINT €P,” *; 

1190 TI=TIMER/50 

1200 PRINT 652," TEMPO="; 

1210 PRINT €84,TI;"SEG ”; 

1220 IF FA>2TI THEN FA=TI 

1230 PRINT €212,"MELHOR TEMPO”; 
1240 PRINT 6244, FA;"SEG "; 

1250 PRINT €340," PRESSIONE”; 
1260 PRINT €372,"<ENTER>"; 

1270 PRINT 6404," PARA COMECAR”; 
1280 PRINT €436,"DE NOVO”; 

1290 LET INS=INKEYS:IF INS="" T 
HEN GOTO 1290 

1300 IF INS=CHR$ (13) THEN GOTO 
40 

1310 GOTO 1290 

Quando você executa este programa 
pode verificar à direita do labirinto o 
tempo gasto para remover os pontos e 
também o melhor tempo, 

Inicialmente, o melhor tempo é co- 
locado em 999999 segundos pela linha 
20. A linha 60 zera o placar, e a linha 
1070 zera o ''cronômetro””. 

A linha 1140 examina a posição em 
que o asterisco está, para ver se há um 
ponto. Em caso positivo, o comando 
PLAY é usado para emitir um “blip” 
enquanto o ponto é apagado. Ela tam- 
bém adiciona um ponto a D, que con- 
tém o número de pontos '“'comidos”, 

A linha 1160 verifica se não há mais 
pontos na tela. Se estes terminaram, o 
programa pula para a linha 1180, que 


apaga o asterisco. 

A declaração TI= TIMER/50 na li- 
nha 1190 pára o relógio e divide o que 
está sendo lido por 50, para transformá- 
lo em segundos. 

As linhas 1200 e 1210 mostram o tem- 
po na tela. 

A linha 1220 checa se o melhor tem- 
po (FA) é maior que o obtido na última 
contagem, Se for, ele é igualado a este. 
As linhas 1230 e 1240 mostram o melhor 
tempo, antes que uma mensagem oriente 
o jogador a teclar < ENTER > para re- 
começar 

A linha 1290 aguarda, até que uma 
tecla seja pressionada, e a 1300 verifica 
se foi < ENTER>. Neste caso o jogo 
recomeça. O RESTORE na linha 50 per- 
mite que os dados (DATA) possam ser 
lidos novamente. Se < ENTER> não 
foi teclada, o computador continua es- 
perando outra entrada, 

A tecla < BREAK >, finalmente, ter- 
mina o jogo. 





CONSTRUA SEUS PROPRIOS LABIRINTOS 


Use papel quadriculado para dese- 
nhar seus labirintos. Tenha sempre em 
mente o tamanho da tela do computa- 
dor: 32 por 16 caracteres. 

Desenhado o novo labirinto, altere o 
conteudo das linhas DATA. Se o novo 
labirinto for maior ou menor que o an- 
tigo, você terá que modificar o tamanho 
do laço FOR...NEXT (linhas 1000 e 
1030). Conte quantas linhas o novo la- 
birinto ocupa e subtraia 1, Coloque o re- 
sultado no lugar do último número da 












linha 1000. Da mesma forma, faça a 
contagem do número de posições da pri- 
meira linha e subtraia 1. Coloque, em 
seguida, esse número no lugar de 18 no 
fim da linha 1030. 

Finalmente, conte quantos pontos 
existem no seu novo labirinto. Se encon- 
trar um número diferente de 153, altere 
a linha 1160 também, substituindo 153 
pelo novo número. 


Estas primeiras linhas constituem o 
labirinto propriamente dito: 


10 SCREEN 1:COLOR 1,3,3 

40 LET P=247 

70 VPOKE BASE (6)+5, 26 

B0 VPOKE BASE (6)+1,102 

90 LOCATE 0,3 

100 FOR N=0 TO 15 

110 READ AS 

120 PRINT TAB(4);AS 

130 FOR M=0 TO 18 

140 IF VPEEK (BASE (5) +102+N*32+M 
)J=65 THEN VPOKE BASE (5) +102+N*3 
2+M,8B 

150 NEXT M 
160 NEXT N 
1000 DATA 
1010 DATA A....... MMA ss eu gal 
1020 DATA A.AA.AA.....AA.MA, 
1030 DATA A.A.... 

1040 DATA e 
1050 DATA 
1060 DATA A... 
1070 DATA ADA... 
1080 DATA AMA... . 
1090 DATA A...A......... 
1100 DATA à. 
1110 DATA 
1120 DATA 
1130 DATA 


> 
» >>> >>» 


AA 


> 
> 
> 
> > > pp 





O Um labirinto bem fácil para o MSX. 


1140 DATA A....... AAA . uu e cus A 
1150 DATA AAAAAAAAAAAAAAAAAAA 


As linhas de dados (DATA), de 1000 
a 1150 encerram a forma do labirinto. 
Os limites deste são representados por 
letras “A”. 

Antes que os dados sejam lidos, a li- 
nha 10 limpa a tela, introduzindo-a no 
modo gráfico de 32 colunas (comando 
SCREEN), e fixa a cor de fundo e de 
frente (comando COLOR). A linha 40 
define a posição inicial do “Come- 
come” (que será representado por um 
asterisco). 

As linhas de 100 a 160 desenham o 
labirinto na tela. Sempre que o laço 
FOR...NEXT das linhas 100 e 160 é exe- 
cutado, o programa lê a próxima linha 
de dados (DATA). A linha 110 lê os da- 
dos, denominando-os de A$. A linha 
120 coloca-os na tela. 

Todos esses pontos e letras “A” com- 
binados não formam, contudo, um la- 
birinto de verdade. Assim, a linha 140 
verifica a porção da memória da máqui- 
na que corresponde a cada posição de 
tela. Isso é feito com a função VPOKE 
BASE (5), que torna acessível a memo- 
ria dedicada de vídeo do MSX, na cha- 
mada página 5. Se o endereço de memoó- 
ria contém o número 65, isso quer dizer 
que temos um “A” na tela e ele é mu- 
dado para um bloco azul (código 8). As 
linhas 130 e 150 fornecem o laço que 
permite que a linha 140 verifique todas 
as posições da tela. 

Agora adicione estas linhas e deslo- 
que um homenzinho pelo labirinto. 


60 VPOKE BASE(6)+31,170 

180 VPOKE BASE (5) +P,ASC("*") 
190 LET LP=P 

195 K$=INKEYS:IF K$="" THEN 195 
200 IF K$=CHRS(29) AND VPEEK (BA 
SE(5)+P-1)<>8 THEN LET P=P-1 
210 IF K$=CHR$(28) AND VPEEK (BA 
SE(5)+P+1)<>8 THEN LET P=P+1 
220 IF K$=CHR$(30) AND VPEEK (BA 
SE (5)+P-32)<>8 THEN LET P=P-32 
230 IF K$=CHR$(31) AND VPEEK (BA 
SE(5)+P+32)<>8 THEN LET P=P+32 
250 VPOKE BASE(5)+LP, 255 

270 GOTO 180 


O movimento do caractere pelo labi- 
rinto só é possível se o ponto para onde 
se quer levá-lo não contém um bloco 
azul. A linha 200 verifica se uma tecla 
foi apertada e qual é o conteúdo de duas 
posições de memória: a que correspon- 
de à tecla de movimentação do cursor 
“flecha para baixo” e a que correspon- 
de à posição de tela em que o homem 
vai entrar. Se a tecla (código 29) está 
sendo pressionada, e o endereço de tela 
não contém um bloco azul (código 8), 
ele pode se movimentar. 

As teclas para controle de movimen- 
to são as usadas para a movimentação 
do cursor (marcadas com as flechas nas 
quatro direções). Experimente deslocar 
o asterisco e ''comer”"' (apagar) os pon- 
tinhos. 

Adicione estas linhas e marque o tem- 
po para ''comer”” os pontos: 


li. 
20 FA=-999999! 
30 RESTORE 
50 LET D=0 
170 TIME=0 


240 IF VPEEK(BASE(5)+P)=46 THEN 
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EF Lo 


SOUND 7,7:SOUND 6,0:SOUND 8,15 
: SOUND 8,0:LET D=D+1 
260 IF D=153 THEN GOTO 280 
280 VPOKE BASE(5)+P, 255 
290 LET TI=INT(TIME/50) 
300 LOCATE 7,1:PRINT "TEMPO=";T 
I "SEG "; 
310 IF FA2TI THEN FA=TI 


320 LOCATE 3,20:PRINT "MELHOR T 
EMPO=" ; FA; SEG  ; 

330 LOCATE 7,21:PRINT "Aperte R 
ETURN "; 

390 LET KS=INKEYS: IF K$="" THEN 
390 


400 IF KS=CHRS(13) THEN GOTO 30 
410 GOTO 390 


O tempo gasto para remover os pon- 
tos, assim como o melhor tempo, é mos- 
trado à direita do labirinto, quando vo- 
cê executa este programa. De início, o 
melhor tempo é colocado em 999999 se- 
gundos pela linha 20. A linha 50 zera o 
placar, e a linha 170 zera o “cro- 
nômetro””. 

A linha 240 examina a posição em 
que o asterisco está, para ver se hã um 
ponto. Em caso positivo, o comando 
SOUND é usado para emitir um “'blip” 
enquanto o ponto é apagado. Ela tam- 
bém acrescenta um ponto a D, que con- 
tém o número de pontos “comidos”. A 
linha 260 verifica se não há mais pon- 
tos na tela. Se estes terminaram, o pro- 
grama pula para a linha 280, que apaga 
o asterisco. Acionamos aqui o coman- 
do VPOKE, como acima. 

A declaração TI= INT(TIME/50), 
agora na linha 290, pára o relógio e di- 
vide o que está sendo lido por 50 para 
transformá-lo em segundos. A linha 300 
mostra o tempo na tela. 

A linha 310, por sua vez, checa se o 


melhor tempo (FA) é maior que o tem- 
po obtido na última contagem. Se foi, 
ele é igualado a este último. A linha 320 
mostra o melhor tempo, antes que uma 
mensagem diga ao jogador para recome- 
car, teclando <ENTER>. 

A linha 390 aguarda até que uma te- 
cla tenha sido pressionada, e a linha 400 
verifica se foi < ENTER>. Neste caso, 
o jogo recomeça. O RESTORE na linha 
30 permite que os dados (DATA) pos- 
sam ser lidos novamente. Se alguma te- 
cla diferente de < ENTER > foi pressio- 
nada, o computador continua esperan- 
do outra entrada. 

O comando <CTRL><STOP> 
encerra O Jogo. 


AS 


Estas primeiras linhas formam o la- 
birinto propriamente dito: 


JO HOME : GR 
40 LET M = 18: LET N = 4 


1000 FOR IT =OTOldS 

1010 READ AS 

1020 FOR J = 1 TOlS 

1025 IF MIDS (AS,J,1) = "A T 
HEN COLOR= 3: PLOT 2 * J,£ * 1 


E PLOT 2 4 9+ Zé * 7: PLOT x 
* Jd TT LL PLOTPZ*UtraA,i 
ta 

1030 IF MID$ (AS,J,l) = *." T 


HEN COLOR= 12: PLOT 2 * J,2 * 

I 

1050 NEXT J 

1060 NEXT I 

2000 DATA "AAAAAAAAAAAAAAAAAA 
A” 

2010 DATA "A....... AAA. cus 
A” 


2020 
A" 
2030 
A” 
2040 


A” 
2110 
A” 
2120 
A” 
2130 
A” 
2140 
A" 
2150 
Fi 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 





"A.AA.DA..... AA. AA 
PA.As ses. ABRA. .... A 
"A MAsAss cs A.A 


Os limites do labirinto são represen- 
tados, neste estágio, tal como em exem- 
plos anteriores, por letras “A”. Da mes- 
ma forma, seus contornos estão conti- 
dos nas linhas de dados (DATA), de 
2000 a 2150. Portanto, o programa só 















funcionará se forem adicionadas essas 
linhas. E relativamente fácil alterar a 
forma para um novo labirinto: basta 
modificar as linhas de 2000 a 2150. . 

Antes que os dados sejam lidos, a li- 
nha 30 limpa a tela e a coloca num mo- 
do gráfico de baixa resolução. A linha 
40 coloca o asterisco na posição incial. 

As linhas de 1000 a 1060 desenham 
o labirinto na tela. A cada vez que o la- 
ço FOR...NEXT das linhas 1000 e 1060 
é executado, o programa lê a próxima 
linha de dados (DATA). A linha 1010 
lê os dados, e os chama A$, A linha 
1025 coloca-os na tela, na forma de qua- 
dradinhos coloridos (cor = 3 onde hou- 
ver a letra A, e cor=12 em outros 
pontos). 

Agora adicione estas linhas e você po- 
derá deslocar, mais uma vez, um ho- 
menzinho pelo labirinto. 


10B0 COLOA= 1: PLOT 2 *M,2 * 

N: PLOT 2 *M+ 1,2 * Nº: PLOT 2 
*M2*XN+ 1): PLOT 2 *M+>i, 
Neal 

1090 LET PM = M: LET PN = N 
1100 IF PEEK ( - 16384) = Z1B 
AND ECAN( £ * 4M- Lya TN) 

€ > 3 /THEN LET MH = M-4 

1110 IF PEEK ( —- l6384) = 216 
AND SCARN( 2 * (M+ 1),2 * N) 

< 2 3 THEN LET M = M+ à 

1120 IF PEEK ( - 16384) = 208 
AND SCAN( 2 *M,2 * (N - 1)) 

É > S-TREN LEI N* Nei 

1130 IF PEEK ( - 16384) = 204 
AND SCRN( 2 *M,2 * (N+ 1)) 

€< >)3 THEN LET N= N+ 1 

1150 COLOR= 0: PLOT 2 * PM,2 * 
PN: PLOT 2 * PM + 1,2 * PN: PL 

OT 2 * PM,Z * PN + 1: ELOT 2 * 

PES La FT EN* Aa 

1170 coTo 1080 


Esta parte do programa dá a você a 
possibilidade de movimentar o caracte- 
re pelo labirinto. Para que haja movi- 
mento, porém, o ponto para onde se 
quer levar o caractere (nosso homenzi- 














nho) não deve conter nenhum bloco de 
cor 12, 

A linha 1100, por exemplo, verifica 
o conteúdo de duas posições de memó- 
ria: a que corresponde à tecla “Z'' e a 
que corresponde à posição de tela em 
que o homem vai entrar. Se a tecla “Z” 
(código 218) está sendo pressionada, e 
o endereço de tela não contém um blo- 
co gráfico, então ele pode se movi- 
mentar. 

As teclas para controle de movimen- 
to são as mesmas já utilizadas anterior- 
mente; “Z” para a esquerda, “X”" pa- 
ra a direita, '“'P” para cima e *“'L”” para 
baixo. 

Marque o tempo necessário para 
“comer” todos os pontos, acrescentan- 
do estas linhas: 


20 LET FA = 99999 

50  RESTORE 

60 LET D = O 

1070 LET TI = O 

1140 IF SCkN( 27 M,2 * N) - 
12 THEN LET W = PEEK ( - 1633 
6): LET D «D+ 

+150 COLOR= O: PLOT 2 * PM,2 * 
PN: PLOT 2 .* PM + 1,2 * PN: PL 


OT 2 * PM,2 * PN + 1: PLOT 2 * 


PM + 2 * PN + 


1160 IF D = 153 THEN GOoTo 118 
O 

1170 GOTO 1080 

1180 COLOR= O: PLOT 2 “*M,2 * 
N: PLOT 2 *M+ 1,2 * N: PLOT 2 
*M,2*XN+ 1: PLOT 2 *M+k1d, 
2*nN+1 

1200 HTAB 9: VTAB 21: PRINT "5 
eu tempo foi de ";TI / 5;" seg” 
1210 IF FA > TI THEN LET FA = 
TI 

1220 HTAB 11: VTAB 22: PRINT * 

Melhor tehpo: “:;FA / 5;" seg” 


1230 HTAB 6: VTAB 23: PRINT "P 

ressione RETURN para continuar” 
1240 GET TS: IF ASC (TS) «< » 
13 THEN GOTO 1210 

1250 GoTo 40 


De início, o melhor tempo é coloca- 
do em 999999 segundos pela linha 20. 
A linha 60 zera o placar e a linha 1070 
zera o “cronômetro”. A linha 1095 au- 
menta uma posição no cronômetro. A 
linha 1140 examina a posição em que o 
asterisco está. Ela também adiciona um 
ponto a D, que contém o número de 
pontos que foram “'comidos””, 

A linha 1160 verifica se não há mais 
pontos na tela (em número de 153). Se 
estes terminaram, o programa pula pa- 
ra a linha 1180, que apaga o asterisco. 


A linha 1200 mostra o tempo na tela 
(que é convertido para segundos 
dividindo-se FA por 50). 

A linha 1210 checa se o melhor tem- 
po (FA) é maior que o tempo obtido na 
última contagem. Em caso positivo, ele 
é igualado a este último. A linha 1220 
mostra o melhor tempo, antes que uma 
mensagem diga ao jogador para teclar 
< ENTER > para recomeçar (na linha 
1230). 

A linha 1290 aguarda até que uma te- 
cla tenha sido pressionada, e a linha 
1300 verifica se foi < ENTER>. Neste 
caso, O jogo recomeça. O RESTORE na 
linha 50 permite que os dados (DATA) 
possam ser lidos novamente. Caso tenha 
sido acionada uma tecla que não < EN- 
TER>, o computador continua à espe- 
ra de outra entrada. A tecla <CTRL.- 
C> termina o jogo. 


CONVERSÃO DO COLOR 
PARA O TRS-BO 

Os micros TRS-80 e TRS-Color têm 
interpretadores BASIC similares, no 
que diz respeito ao núcleo básico de co- 
mandos, funções e declarações. Por is- 
so, é fácil converter programas de um 
modelo para outro. As maiores diferen- 
cas residem nos comandos de alta re- 
solução gráfica, cor e som. Os 
comandos CLS (limpa telas), SET e 
POINT (pontos gráficos de resolução 
média) e PRINTO são semelhantes nas 
duas linhas. Às diferenças de sintaxe 
do TRS-BO em relação ao Color são: o 
CLS, o SET e o POINT não têm pará- 
metro indicativo de cor de fundo tela 
de texto), e as locações de tela usadas 
com o PRINTO produzem resultados 
diferentes. 

A tela do Color tem dezesseis linhas 
por 32 colunas, e a do TRS-BO, dezes- 
seis linhas por 64 colunas. Como as po- 
sições de tela usadas pelo PRINTO são 
numeradas sequencialmente, um 
PRINTO 162, por exemplo, escreverá 
na segunda coluna da sexta linha do 
TRS-Color, e na 32º? posição da tercei- 
ra linha, no TRS-80. 

Há uma forma simples de converter 
comandos PRINTO do Color para o 
TRS-BO: se N for a locução de tela do 
Color, sua correspondente no TRS-BO 
será 
INT (N/32) +64 +N-32 
para a segunda linha em diante (a que 
começa na posição 32 do Color). Se 
N < 32, não há necessidade da fórmu- 
la acima; a locução de tela do TRS-80 
serão próprio N. 

































SAVE 


Qualquer criança é capaz de fazer 
funcionar um gravador. Quando 

se trata de conectá-lo ao computador, 
porém, as coisas podem se 

complicar. Saiba como sair dessa, 
começando por ajustar os controles. 


Alguns problemas podem surgir 
quando se quer gravar ou carregar pro- 
gramas com um gravador cassete. As 
causas desses problemas nem sempre são 
identificáveis. Mas é possivel estabele- 
cer algumas rotinas que diminuam as 
margens de erro. 





SAIBA CONECTAR CORRETAMENTE 


Alguns micros empregam um grava- 
dor especial do tipo digital, que tem uma 
ligação única e direta com a máquina; 
essa característica elimina qualquer pro- 
blema na instalação. Mas a maioria dos 
computadores pode ser ligada a um gra- 
vador cassete, frequentemente utilizan- 
do mais que um tipo de cabo. Normal- 
mente, a ligação é feita por meio de um 
plugue do tipo DIN ligado a três plugues 
de pino (Jaques), mas pode-se encontrar 
também um conector DID em cada uma 
das pontas, com ou sem jaques em pa- 
ralelo. Se você comprar um cabo ou usar 
um próprio para áudio, assegure-se de 
que ele é adequado: caso não seja, apa- 
recerão problemas como interferências 
em cabos não blindados. 

Se você usa o gravador com frequên- 
cia, é aconselhável deixar o cabo perma- 
nentemente ligado dos dois lados. 





AJUSTE OS CONTROLES 


O passo inicial e mais importante na 
adequação com o computador é ajustar 
os controles de volume, tonalidade e ou- 
tras características do gravador. Se vo- 
cê tem um gravador especial para com- 
putadores, siga as instruções que O 
acompanham. 

Se seu gravador é do tipo comum, co- 
mece desligando todos os controles es- 
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peciais, como filtros e sistemas de redu- 
ção de ruído (Dolby), etc. Ajuste o con- 
trole de tonalidade para o máximo de 
agudos (a tonalidade é controlada ou 
por um dial numerado, ou por um in- 
terruptor de duas posições grave/agu- 
do). Deixe a tonalidade assim sempre 
que você usá-lo com o computador. Es- 
colha um volume médio (entre 50 e 60% 
do máximo) e tente carregar (com os co- 
mandos LOAD, CLOAD, etc., depen- 
dendo do computador) um programa já 
gravado, como por exemplo o da fita de 
demonstração que acompanha sua má- 
quina. Se o programa não carrega, au- 
mente o volume pouco a pouco e repita 
a operação, até conseguir um bom re- 
sultado. 

Se você alcançar o volume máximo 
ainda sem sucesso, volte o seletor até um 
ponto levemente abaixo daquele em que 
você começou e repita toda a operação, 
diminuindo o volume aos poucos. 

Caso o programa não carregue em 
nenhum nível de volume, verifique as 
conexões novamente. Tente outro cabo 
ou outra fita, ou peça emprestado um 


Bj 
= COMANDO DE GRAVAÇÃO 
mi 
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APRENDA À CONECTAR 
O GRAVADOR 


VERIFIQUE SUAS FITAS 
COMANDO DE LEITURA 





gravador adequado ao seu tipo de com- 
putador. Se, depois disso, ele continuar 
sem funcionar, procure O seu re- 
vendedor. 

Quando tiver encontrado um volume 
que permita O carregamento, observe a 
posição do controle, estabeleça os limi- 
tes superior e inferior com os quais vo- 
cê consegue carregar o programa e mar- 
que o ponto médio para uso posterior. 
Você pode usar o mesmo volume para 
gravação, mesmo porque muitos grava- 
dores têm um controle automático des- 
se volume. 

Para testar se o volume é adequado 
para gravação, limpe a memória do 
computador (digite NEW e pressione 
< ENTER> a seguir) e digite este pe- 
queno programa. 


E pR:| | 
TJ | ; ; | 
2 Es 4 f [| di hd +] 


LO REM TESTE DE GRAVACAO 
20 REM 

30 REM 

40 REM 

50 REM FIM DO TESTE 








1 | 
| | | | 
| 
| | 































EXTERMINADOR DE PROBLEMAS 

— Utilize um gravador cassete mo-| 
noaural (isto é, que não seja estéreo), 
de marca confiável e, se possível, 
reserve-o para uso exclusivo com o 
computador. Ligue-o sempre à rede elé- 
trica, ao invés de usar pilhas, para as- 
segurar uma rotação uniforme do 
motor. 


— Evite usar aparelhos estereofôni- 
cos, a não ser que todos os seus recur- 
sos especiais possam ser desligados, 


— Use fitas magnéticas para áudio 
de boa qualidade ou especiais para da- 
dos. Uma fita de má qualidade não re- 
sistirá por muito tempo a várias regra- 
vações. 

— Procure instruções específicas na 
tela; o gravador deve ficar com a tecla | 
PLAY acionada até que a operação de 
carga esteja completada. 











— Altere as características de tona- 
lidade, volume e outros controles se a 
carga do programa não for bem-su- 
cedida. 



















— Afaste o gravador da TV ou mo- 
nitor se um programa que já carregou 
uma vez não funcionar. Tente também . 
uma outra gravação do programa para 
ver se funciona. Em caso afirmativo, a 
primeira fita deve ter sido danificada. 








— Se for necessário ajustar o volu- 
me com frequência, de programa para 
programa, marque o volume adequado 
na etiqueta da fita. 


— Guarde suas fitas em lugar seco, | 
livre de poeira e longe de fontes eletro- 
magnéticas e do calor. 


Siga então a rotina para gravação no 
computador, acionando SAVE ou CSA- 
VE. Ao carregá-lo (comando LOAD ou 
CLOAD) e listá-lo (LIST) você obterá 
o programa de volta. 


O COMANDO DE GRAVAÇÃO 





O comando de gravação de fita não 
é um comando padrão do BASIC, va- 
riando muito entre os computadores. A 
maneira correta de manipulá-lo é geral- 
mente explicada no manual que acom- 
panha o micro. Alguns passos iniciais, 
porém, são importantes. 

Antes de gravar qualquer programa, 
coloque uma fita de boa qualidade no 
gravador, tendo o cuidado de rodá-la 
um pouco para que a guia de plástico 
transparente, existente no começo (lea- 
der), não fique em contato com o ca- 
beçote. 

A seguir, escolha um nome adequa- 
do para seu programa. Os dados são ar- 
mazenados na forma de “arquivos” de 
um tipo ou outro, independentemente 
do método real de armazenamento. 
Mas, para gravações feitas em fita, no- 
mes especiais são empregados com o co- 
mando SAVE, de modo a identificar na 
fita qual o programa gravado (isso é útil 
para achar automaticamente o progra- 
ma, depois, através do comando 
LOAD). 

O nome do arquivo ou programa po- 
de ser qualquer combinação de caracte- 
res ou símbolos contidos no tamanho 





máximo permitido para uma linha no 
seu computador. Na maioria das máqui- 
nas, esse tamanho é de dez caracteres no 
máximo. Outros computadores, como o 
TRS-80, permitem apenas uma letra ou 
simbolo de identificação do programa: 
quando o nome é maior, os comandos 
CSAVE e CLOAD reduzem-no à pri- 
meira letra. 


SAVE "NOMEPROGO1” 
SAVE "NomeProg01” 
CSAVE "R” 


Dos computadores considerados 
aqui, apenas os compatíveis com Apple 
II não exigem aspas. 

Os exemplos de comandos SAVE aci- 
ma são válidos, mas um deles usa letras 
maiúsculas e minúsculas. Se você 
misturá-las num nome de programa, de- 
ve fazer o mesmo quando quiser carre- 
gar o programa. 


"NOME . PROG” 
"NOME / PROG” 
"NOME (PROG) ” 


SAVE 
SAVE 
SAVE 


Se o seu computador está ligado ao 
controle remoto do gravador, ligue os 
controles para gravação, digite o nome 
do programa desejado após o comando 
SAVE e tecle <ENTER> ou <RE- 
TURN>. O computador assumirá o 
controle do gravador até que a opera- 
ção de gravação esteja completada. 
Se o controle é manual, digite o co- 
mando SAVE e o nome do programa, 
coloque o gravador em funcionamento 
e então tecle <ENTER> ou <RE- 
TURN>. Espere até que o sinal de 













































prontidão reapareça na tela e desligue 
o gravador. 

O tempo exigido para o carregamen- 
to de um programa depende de dois fa- 
tores: seu tamanho, em termos de uso 
de memória, e a velocidade do fluxo de 
dados entre o gravador e o computador. 
Esta é fixa em alguns equipamentos e 
variável em outros. 


As gravações mais confiáveis são fei- 
tas na velocidade mais baixa, Altas ve- 
locidades usam menos fita e, obviamen- 
te, operam mais rápido. Nesse caso é im- 
portante usar fitas de alta qualidade. 


VERIFIQUE AS GRAVAÇÕES 


Uma maneira de verificar se um pro- 
grama foi gravado adequadamente é 
carregá-lo e executá-lo. Quando a gra- 
vação é imperfeita o programa que está 
na memória (e que você quer gravar) é 
substituído por aquele que está na fita, 
e a gravação se perde. Se esta tiver sido 
bem-sucedida, não haverá problemas. 

Muitos computadores contornam es- 
sa dificuldade fornecendo um comando 
verificador (por exemplo, VERIFY). O 
seu uso exige o rebobinamento da fita 
até o início do programa. Então 
executa-se o comando usando o mesmo 
nome que se deu ao programa ao gravá- 
lo. Por exemplo: 








E ado LL 


VERIFY "NOMEPROGO1” 


O computador lê o programa da fita 
e o compara com aquele que está na me- 
mória. Se houver falha, aparecerá na te- 
la uma mensagem de erro. 

Os computadores da linha TRS-80 
usam o comando CLOAD? para a ta- 
refa de verificação. Outros micros, po- 
rém (como os compatíveis com o Sin- 
clair ZX-81), não têm qualquer função 
de verificação. Recorra, nesse caso, a 
programas de revistas especializadas ou 
vendidos à parte. 


| O COMANDO DE LEITURA 


Se você começar com programas pré- 
gravados, seus primeiros problemas se- 
rão com o comando de leitura (LOAD). 
Podem existir várias formas do coman- 
do LOAD, mesmo para uma única má- 
quina. Eis uma delas: 


LOAD "NOMEPROGO1” 


Outros computadores utilizam a for- 
ma CLOAD (linha TRS-80), LOADA 
ou LOADT (TK-2000), etc. 

O comando LOAD deve reproduzir 
o nome utilizado para gravação (SAVE) 
e verificação (VERIFY). Para que o 
computador leia os sinais da fita mag- 
nética, basta digitar LOAD e pressionar 
a tecla PLAY do gravador. Ele procu- 
rará pelo nome do programa e mostra- 
rá todos que encontrar pelo caminho, 
até encontrar aquelé que confere com o 
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CONECTOR DIN FÊMEA DE 5 PINOS 


Eis aqui dois tipos de 

cabo que você pode utilizar 

para conectar o seu computador 

a um gravador. Verifique em seu 
manual a disposição correta 

dos pinos (canto inferior esquerdo). 


nome indicado juntamente com o 
LOAD. Quando esse nome for encon- 
trado, os dados que o seguem serão au- 
tomaticamente carregados na memória 
do computador. Em muitos tipos de 
computador, o processo de leitura po- 
de ser acompanhado na tela de vídeo por 
meio de indicadores. Na linha TRS-80, 
por exemplo, aparece um asterisco pis- 
cando no canto superior direito da tela. 
Em outras, o número de bytes ou de blo- 
cos de bytes lidos é mostrado conti- 
nuamente. 

Se o gravador está ligado ao contro- 
le remoto, a fita estaca ao final do pro- 
cesso de carregamento, mas você ainda 
precisa apertar a tecla STOP no grava- 
dor. Se o controle é manual, simples- 
mente aperte STOP quando o cursor 
reaparecer na tela. Evite que a tecla 
PLAY fique acionada desnecessaria- 
mente, porque isso pode provocar o des- 
gaste prematuro ou deformação da po- 
lia tratora. 

Quando você usar o comando LOAD 
ou equivalente, o programa que for car- 
regado tomará o lugar de qualquer ou- 
tro que esteja na RAM (Memória de 
Acesso Randômico) do computador. 
Por isso, assegure-se de ter gravado o 
programa resistente na memória antes 
de carregar o próximo. 

Rebobine a fita até o início do pro- 
grama-teste que foi apresentado lá em 
cima, e tente carregá-lo (LOAD) usan- 
do o nome que você escolheu. Em caso 
de dificuldade, consulte o guia de reso- 
lução de problemas, neste artigo. 

Outras formas do comando LOAD 
são necessárias para tornar acessíveis da- 
dos em código de máquina (por exem- 
plo, BLOAD), para realocar programas 
e para juntar um programa a outro 
(MERGE). Seu primeiro contato com 
elas pode ter sido em instruções de jo- 
gos comprados ao acaso. 
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Os circuitos internos dos computado- 
res utilizam, como vimos, apenas núme- 
ros binários para realizar operações arit- 
méticas. Ora, esse sistema de numera- 
ção, composto dos dígitos O e 1, cria 
uma série de dificuldades de compreen- 
são e manipulação para os operadores. 

Em primeiro lugar, os números bina- 
rios de oito e dezesseis bits (os mais usa- 
dos em microcomputadores) tornam-se 
confusos e difíceis de reconhecer, com 
tantos Os e Is. Digitá-los. no computa- 
dor é uma empresa dificil, sujeita fre- 
quentemente a erros e incorreções. 

A maneira de contornar esses proble- 
mas consiste em fazer com que o ope- 
rador ou programador em nível de má- 
quina passe a utilizar um sistema numeê- 
rico com outra base, mas que ainda se- 
ja próximo, em concepção, ao sistema 
binário utilizado pelo computador. 

O sistema universalmente adotado 
para isso é o hexadecimal (ou hexa), no 
qual os números utilizam a base 16. E 
por que o hexa funciona tão bem com 
computadores? 

Antes de mais nada, ele está suficien- 
temente próximo do decimal para ser to- 
lerado por nós, simples mortais. Mas, 
além disso, 16 é uma potência de 2 (co- 
mo 8 também o é, em outro sistema 
muito usado com computadores, O 0c- 
tal). Isso significa que a conversão en- 
tre os sistemas — binários € hexa —, nos 
dois sentidos, é bem mais simples do que 
entre o primeiro e o sistema decimal. 

A única dificuldade é que um siste- 
ma com base maior do que 10 precisa 
criar novos algarismos, além dos que 
existem entre O e 9. No sistema hexade- 
cimal utilizam-se letras adicionais (sem- 
pre em maiúsculas). O 10 decimal é re- 
presentado por A, 0 11 por B, o 12 por 
C,o13porD,ol4porEeo 15 por F. 

Tudo se passa como se tivéssemos o1- 
| to dedos em cada mão. Essa imagem po- 

de parecer estranha ou mesmo mons- 
truosa, pois dificilmente suportamos al- 
terações em nossa aparência física. Na 
prática, porém, é isso que acontece. 


COMO CONVERTER BINÁRIO EM HEXA 





A conversão de números binários de 
oito bits (os mais utilizados em compu- 








Se todos tivéssemos dezesseis dedos, 
o sistema numérico mais comum seria 
certamente o hexadecimal. Embora isso 
não aconteça, esse sistema é 
fundamental para o código de máquina. 




































































E? POR QUE O SISTEMA 

HEXADECIMAL É UTILIZADO 
] CONTANDO DE 16 EM 16 
% À RELAÇÃO ENTRE OS 


22 e qu 


SISTEMAS BINÁRIO E 


tadores pessoais) para o sistema hexa- 
decimal é bastante fácil. Primeiro, vo- 
cê divide o número binário em duas par- 
tes de quatro bits cada. Em seguida, ca- 
da uma dessas partes é transformada em 
um digito hexadecimal. O número hexa 
final é composto por esses dois dígitos. 
Da mesma forma, converte-se um nu- 
mero binário de dezesseis bits hexa 
dividindo-o em quatro segmentos de 
quatro bits cada. 

Já a conversão de decimal para hexa 
é mais complicada, embora não seja tão 
difícil que você não possa realizá-la. Pa- 
ra se fazer isso, você precisa dividir O 
número decimal por 16, sucessivamen- 
te. Os restos dessa divisão formarão os 
digitos do número em hexa. 

Quando se divide o decimal 1226 por 
16, 0 resto será 10. O 10 decimal é A em 
hexa. O resultado da divisão (76) é di- 
vidido, por sua vez, por 16, e dá 4, com 
resto de 12 (C em hexa). Finalmente, 4 
dividido por 16 dá zero, com 4 de res- 
to. Conclusão: 1226 em decimal é 4€CA 
em hexa (note a sequência inversa à di- 
visão para os dígitos hexa). Para apren- 
der melhor como funcionam todas es- 
sas conversões, digite O programa 
abaixo, 


CLS O 
30 PRINT 
40 PRINT 
50 PRINT 
60 PRINT 


él 
B6B,"BINARIO” 

8196," DECIMAL”; 

ag dd a a 

70 PRINT 6355,” DO “ a 
BO PRINT 83/11, o =" 

90 FOR J=1 TO 15: PORE 1040+32*J 
(5 175:NEXT 

100 PRINT €450, 


"BIN, DEC, HEX” 


"NUMERO HEX= 


110 PRINT 6227,"+ + + + 
np + e Bi: 

120 GOTO 170 

130 INS=INKETYS: 

30 

140 IF 

NO AND 


IF INS="" THEN 1 


IN$=" " THEN NO=NO+1:NO= 
255: GOTO 1/0 
150 IF INS$="B" THEN NO= 
NO AND 255:GOTO 1/70 
160 GOSUB 370 
170 GOSUB 190: 
180 “GOTO 130 
190 FOR X=7 TO O STEP-1 
IF (NO AND £Z' X) THEN 


NO-1L:NO= 


GOSUB 270 


N=1 ELSE 





| 
| 
] 
| ] 
| 
| ] 
| | | 


HEXADECIMAL 


a CONVERSÕES F. FÁCEIS DE 


BINÁRIO PARA HEXA 


me CONVERSÃO DE DECIMAL 


PARA HEXA 


N=O 
210 PRINT 6125-X*4,N; 
220 IF N=1 THEN N=INT(2"X):NS=S 
TRS(N) :NS=MIDS (NS, 2, LEN(NS)-1)E 
LSE NS=RIGHTS(” 0” ,LEN(STRS(2Z" 
X)j-1) 
230 PRINT 
240 NEXT 
250 PRINT 6279," = 
NO) +” Pela) E 
260 RETURN 

270 FOR X=7 TO 4 STEP -1 
280 PRINT €37/4-X*3, STARS ( (NO AND 
2 X)/16); 
290 NEXT 

300 PRINT €367,HEXS (NO/16); 

310 FOR X=3 TO O STEP -1 

320 PRINT €378-X*3, STRS (NO AND 
ECA 

330 NEXT 
440 PRINT 
350 POKE 1488,PEEK(1391) 
489, PEEK(1407) 

360 RETURN 

370 NUS="": PRINT 8439,"77"; 
380 INS=INKEYS:IF (INSS"O” 
$>"9") AND INS<>CHRS (13) 
OTO 3B0 

390 IF INS=CHRS (13) THEN NO=VAL 
(NUS) :IF NO>255 THEN 370 ELSE P 
RINT 8439,STRINGS (5, CHARS (128)); 
: RETURN 

400 IF INS<>CHARS (13) 
U$S)>2 THEN 380 

410 NUS=NUS+INS: PRINT €441,MIDS 
(NUS+" .1,3):;:GOTO 380 


8255-X*4-LEN (NS), NS; 


"1MIDS (STARS ( 


8383, HEXS (NO AND 15); 
:POKE 1 


OR IN 
THEN G 


AND LEN (N 





20 CLS 

25 PLOT 140,0: DRAW 0,160 

30 PRINT INVERSE 1;AT 0,8;” 

BIN,DEC,HEX " 

40 PRINT INVERSE L;AT 4,2;" 

BINARIO: F 

S0 PRINT INVERSE 1;AT 9,2;" 

DECIMAL : o 

60 PRINT AT 10,5/"+ + + 
+ + 4 +" 

70 PRINT INVERSE L;AT 17,2; 

HEXADECIMAL :” 


80 PRINT AT 
90 PRINT AT 
100 LET no=0 
110 GOTO 150 


18,45" + + 
18.0 o + o + = 


120 LET aS=-INKEYS : IF asS="" 
THEN GOTO 120 

130 IF a$=" * THEN LET nosno+ 
1 : IF no=256 THEN LET no=0 


135 IF ag="b” THEN LET no=no- 











1: IF no=-1l THEN LET no=255 315 LET m=0: IF 11>=c THEN B+X*3;M 

140 IF aS=-"b” OR a$=" " THEN LET m=c : LET 1ll=11-c 340 NEXT X 

Goto 150 320 LET c=c/2 400 PRINT AT 21,6;"TOTAL HEX= " 

145 INPUT "?7";no 330 PRINT AT 18,2+x*3;n;AT 18, -CHRS HI;CHRS$ LO 

150 GOSUB 170: GOSUB 250 18+x*3; m 500 RETURN 

160 Goto 120 340 NEXT x 

170 LET nu=no: LET c=128 400 PRINT AT 21,6;"TOTAL HEX= py 

175 FOR x=0 TO 7 ".CHARS hi;CHR$ lo | 

180 LET n=0: IF nu>=c THEN 500 RETURN 

LET n=l : LET nusnu-c 5 KEY OFF 

190 LET c=c/2 Ema 10 SCREENO 

200 PRINT AT 5,2+4*x;n 15 COLOR 1,9 

210 IF n=1 THEN PRINT AT 10,2 20 CLS 

+4*R:c*% 2 20 AA seca e RP 30 LOCATE 10,0:PRINT” BIN,DEC,H 

220 IF n= 1 PRINT A | 19: BIN, HEX” EX” 

CARRO E FRANAIOS aii 40 PRINT AT 4,4;"BINARIO:” 40 LOCATE 2,4:PRINT” BINARIO: 

230 NEXT x 50 PRINT AT 9,4;"DECIMAL:”" ad 

235 PRINT AT 13,6;"TOTAL DECIM ni AZ Abrdi To 8 * 50 LOCATE 2,9:PRINT” DECIMAL: 
m + + " m 


AL= ";n 0;" 


240 RETURN 70 PRINT AT 17,4;"HEXADECIMAL: 60 LOCATE 3,10:PRINT"+ + - 
250 hi=INT (no : LET h i - | E O 
“hi ul SRA o 80 PRINT AT JB do d+ rm 70 LOCATE 2,17:PRINT” HEXADECI 
260 LET lo=(no-hi*16): LET 11= po 
lo: IF 10>9 THEN LET loslo+tz 100 LET No-0 80 LOCATE 4,18:PRINT "+ + + 
265 IF hi>9 THEN LET hi=hi+? 110 GOTO 150 ph 
270 LET hi=hi+48: LET lo=lo+4s 120 LET ASCINKEYS 90 LOCATE 20,18:PRINTT+ + + 
280 PRINT AT 18,14;CHRS hi;AT 125 IF A$="" THEN GOTO 120 = 
18,30; CHARS ló 130 IF AS<>"F” THEN GOTO 135 100 LET NO0=0 
290 LET c=B 131 LET NO=NO+1 110 GoTo 150 
300 FOR x=0 TO 3 132 IF N0=256 THEN LET NO=0 120 LET AS=INKEYS: IF AS="" THEN 
310 LET n=-0: IF hh>=c THEN 135 IF AS<>"B” THEN GOTO 140 GOTO 120 
LET n=c : LET hhshh-c 136 LET NO-NO-1 130 IF AS=" " THEN LET NO=NO+1: 
137 IF NO=-1l THEN LET N0=255 IF N0=256 THEN LET NO=1 
140 IF AS="B” OR AS$="F” THEN GO 135 IF AS="B” THEN LET NO=NO-1: 
TO 150 IF NO=-1 THEN LET NO0=255 
145 INPUT NO 140 IF AS$="B” OR AS$=" " THEN GO 
| 150 GOSUB 170 TO 150 
| 155 GOSUB 250 145 LOCATE 30,0: INPUT NO 
| 160 GoTo 120 150 GOSUB 170:GOSUB 250 
170 LET NU=NO 160 GOTO 120 
171 LET C=128 170 LET NU=NO:LET C=128 
175 FOR X=0 TO 7 175 FOR X=0 TO / 
Nos micros TRS-Color, TRS-B0 180 LET N=0 180 LET N=0:1F NU>=C THEN LET N 
| (com BASIC em disquete) e MSX, exis- 185 IF NU>=C THEN LET Nel eh: LET NUSNU-C 
tem funções específicas para conver- 186 IF NU>=C THEN LET NU=NU-C 190 LET C=C/2 | 
ter decimais em hexas. Fssas funções 190 LET C=C/2 200 LOCATE 2+4*X,5: PRINT USING 
são (d corresponde a um número ou ex- 200 PRINT AT 5,2+4K;N E Ads, 
Eme *X;C*2 RINT USING "14" ;C*Z2 
PEITO? 220 IF N=0 THEN PRINT AT 10,2+4 220 IF N=0 THEN LOCATE 4*X,10:P 
“HO ” RINT USING "444";0 
HEXS (d) 230 NEXT X 230 NEXT X | | 
T 235 PRINT AT 13,6;"TOTAL DECIMA 235 LOCATE 6,13:PRINT "TOTAL DE 
Se você quiser incluir números em L= CNO” ” CIMAL=";NO;" ” 
hexadecimal como parte de um progra- | 240 RETURN 240 RETURN 
ma (por exemplo, dentro de declara- 250 LET HI=INT (NO/16) 250 LET HI=INT(NO/16):LET HH=HI 
ções DATA), também não há problema 255 LET HH=HI 260 LET LO=(NO-HI*16) :LET LL=LO 
| para muitos computadores. Ao utilizar 260 LET LO=(NO-HI*16) :IF LO>9 THEN LET LO=LO+/ 
essas constantes em hexa para cálcu- 261 LET LL=LO 265 IF HI>9 THEN HI=HI+/ 
los subsequentes, o computador os 270 LET HI=HI+28 270 LET HI=HI+48:LET LO=LO+48 
converterá internamente em decimal 275 LET LO=LO+28 280 LOCATE 14,18:PRINT CHRS (HI) 
(ou, mais propriamente, em binário). 280 PRINT AT 18,14;CHRS HI;AT 1 ; 
| 8B,30;CHRS LO 285 LOCATE 30,18:PRINT CHRS(LO) 
TT 290 LET C=8 | 
300 FOR X=0 TO 3 290 LET C=8 
Coloque &H antes do número. Exem- 310 LET N=0 300 FOR X=0 TO 3 
plo: &HF3 | 311 IF HH>=C THEN LET N=C 310 LET N=0:IF HH>=C THEN LET N 
312 IF HH>=C THEN LET HH=HH-C -C:LET HH=HH-C 
élS! 315 LET M=0 315 LET M=0;IF LL>=C THEN LET M 
| T 316 IF LL>=C THEN LET M=€ =C:LET LL=LL-C 
320 LET C=C/2 330 LOCATE 2+X*3, 18: PRINT USING 





Exemplo: $F6. 


330 PRINT AT 18,2+X*3;N;AT 18,1 "cr;N? 








Naa E o 6 ES 8 cdoIdO DIA 





335 LOCATE 18+X*3, 18: PRINT USIN 


G"4";M; 

340 NEXT LOCATE 

400 LOCATE 6,21:PRINT"TOTAL HEX 

- “:CHRS(HI);CHRS(LO); 

500 RETURN 

20 HOME 

25 POKE 34,22 

30 INVERSE HTAB 14: PRINT "B 
IN,DEC, HEX" 

40 VTAB 6: HTAB 5: PRINT "BINA 
RIO” 

50 VTAB 10: HTAB 5: PRINT "DEC 
IMAL” 

60 VTAB 16: HTAB 5: PRINT "HEX 

ADECIMAL” 

70 VTAB 22: HTAB 3: PRINT "NUM 
ERO HEX= is 

BO VTAB 17: PRINT * + + 

+ = "«: HTAB 21: PRINT * 

+ + + - '” 

90 VTAB 11: PRINT * + + 

+ + + + + " 

110 GOTO 170 

120 VTAB 23: CALL - 958: HTAB 
30: GET INS 

130 IF INS = CHARS (32) THEN N 

O = NO + 1: IF NO = 256 THEN NO 
-Q 

140 IF INS = cCHR$ (66) THEN N 
Oo = NO - 1; IF NO = - 1 THEN NW 
O = 255 

150 IF INS < > CHARS (32) AND 
INS < > CHR$ (66) THEN GOSU 
B 410 

170 GOSUB 190: GOSUB 270 

180 GOTO 120 

190 NU = NO:C = 128: FOR X = 7 

TO O STEP - 1 

200 N = O: IF NU > = C THEN N 
- J:NU = NU - CC 

205 Cn C/ 2 

210 VTAB 7: HTAB ABS (X - 7) 
* 5 + 1: PRINT" ":;N;” * 

220 IF N = 1 THENN=-2Z”X:NS 
- STRS (N): GOTO 230 

245 NS = * 0" 

230 VTAB 11: HTAB ABS (X - 7) 
* S+ 1 + (3 - LEN (N$)): PRI 
NT NS 

240 NEXT 

250 VTAB 13: HTAB 5: PRINT "TO 

TAL DECIMAL= ";NO;" ";: CALL - 
B6B 

260 RETURN 

270 HI = INT (NO / 16):HH = HI 
280 LO = (NO - HI * 16):LL = LO 


: IF LO > 9 THEN LO = LO + 7 
200 JF HI > 9 THEN HI = HI +7 
300 HI = HI + 48:L0 = LO + 48 


310 VTAB 17: HTAB 18: PRINT CC 

HRS (HI);: HTAB 38: PRINT CHARS 
(LO) 

320 C = 8 

330 FOR X = 0TOGJ3 

340 N = O: IF HH > = C THENN 

- C:HH = HH-cC 

350 M = O: IF LL > = € THENM 


- C:LLoeLLO-C 








mm (65, 56 2 GR E 








360 C= Co/ 2 


370 VTAB 17: HTABX * 4 + 2: P 


RINT N;: HTAB X * 4 + 22: PRINT 
M 

JB0O NEXT 

390 VTAB 22: HTAB 15: PRINT €C 

HR$ (HI); CHR$S (LO) 

400 RETURN 

410 VTAB 23: HTAB 30: INPUT NO 

420 IF NO > 255 OR NO < O THEN 
410 

430 NORMAL VTAB 23: HTAB 30: 
PRINT ” ": INVERSE RETU 

RN 


Uma vez digitado o programa, rode- 
o com o comando RUN, Aparecerão na 
tela três linhas: uma contendo os digi- 
tos do número em binário; mais abai- 
xo,.a linha do número em decimal; e, 
por último, os dois segmentos do núme- 
ro em hexadecimal. 

Inicialmente, todos esses números es- 
tão zerados. Ao pressionar a tecla de es- 
paçamento (a tecla F na versão para o 
ZX-81), o número binário no topo da 
tela será incrementado de 1 e seus equi- 
valentes em decimal e hexadecimal apa- 
recerão na parte de baixo da tela. O 
equivalente decimal é calculado 
somando-se os valores (potências de 2) 
correspondentes às posições onde um di- 
gito binário é igual a 1. Exemplo: 


BINÁRIO: 
00100110 





DECIMAL: 
0+0+32+0+0+4+2+0=38 


POTÊNCIAS DE 2: 
VENIrrorLa 

O mesmo método de conversão é uti- 
lizado para o sistema hexadecimal; ape- 
nas, neste caso, formam-se quatro gru- 
pos de quatro bits de cada vez. 

Pressionando a tecla <B>, você di- 
minuirá | do número registrado na te- 
la. Ao mesmo tempo, se você pressio- 
nar qualquer outra tecla, além da barra 
de espaços ou da letra B, poderá orde- 
nar rapidamente ao computador que 
converta para binário € hexadecimal um 
número qualquer em decimal entre O e 
255. Ao pressionar qualquer tecla, apa- 
recerá em um canto da tela um sinal de 
interrogação. Digite então o número de- 
sejado e acione <ENTER> ou <RE- 
TURN>. Ato continuo, os números 
equivalentes em binário e hexa serão 
mostrados no video. 

Note que o número máximo que po- 
de ser representado por um byte de oito 
bits em binário é 11111111. Isso equi- 
vale a 255 em decimal e a FF em hexa- 
decimal, Qualquer número armazenado 
em um byte na memória do seu compu- 
tador pode ser representado por um va- 
lor em hexa com dois digitos. 

Com o tempo, você verificará que es- 
sas conversões não são tão dificeis quan- 
to parecem a princípio. 





O sistema hexadecimal parece dificil e 
complicado. Não seria possível passar 
sem ele? Afinal, é realmente necessá- 
rio aprendê-lo para operar em lingua- 
| gem de máquina? 

Sim. Se você tem a intenção de 
aprender seriamente a programar em 
código de máquina, um bom conheci- 
mento sobre como trabalhar com o sis- 
tema hexadecimal é imprescindível. 

Existem programas prontos para fa- 
zer a conversão automática de códigos 
de operação em números binários (As- 
| sembler) ou a conversão no sentido in- 
| verso (Disassembler). Além disso, eles 
| aceitam números expressos no siste- 
ma decimal. No entanto, mesmo nes- 
ses casos, o programador precisa re- 
correr constantemente aos seus equi- 


valentes hexadecimais. Muitas vezes, | 
certas listagens emitidas por tais pro- | 


gramas (DUMP) contêm apenas núme- 
ros hexadecimais. E você não saberia 
trabalhar com eles se não conhecesse 
o sistema de base 16. 

Em lições posteriores, aprendere- 
mos a fazer Assembly manualmente: o 
conhecimento do sistema hexadecimal 
será um pré-requisito para entendê-las. 

Com o tempo e a prática, você verá 
que a dificuldade desse sistema é ape- 
nas aparente. Na verdade, ele é tão 
simples e fácil quanto o sistema deci- 
mal ou qualquer outro. 


| Como devo fazer para reconverter de 
hexa para decimal? 

Cada dígito de um número em hexa 
vale 16 vezes o dígito à sua direita. Pa- 
| ra converter um número em hexa, co- 
mo FODA, por exemplo, deve-se tomar 
inicialmente o primeiro digito da direi- 
ta e convertê-lo para notação decimal. 
No exemplo, À equivale a 10. O próxi- 


mo dígito à esquerda vale 16 vezes | 


mais; assim, convertemos D para de- 
cimal (o que dá 13), e realizamos a ope- 
ração: 13 x 16 = 208. O próximo di- 
* gito à esquerda vale 16 vezes mais; as- 
sim, multiplicamos 6 x 16 x 16 = 


1536. O último dígito do exemplo pre- | 
cisa também ser multiplicado por 16. | 


F vale 15, assim temos 15 x 16 x 16 
x 16 = 61440. Somando todos os va- 


lores obtidos temos 10 + 208 + 1536 | 


+ 61440 = 63194, em decimal. 

Ou então use o programa listado 
| aqui para converter o número hexa de 
| dois em dois dígitos de cada vez, e de- 
| pois multiplique o par mais à esquerda 
| por 256. 





NUMEROS MAIORES 





Como um computador de oito bits 
representa números maiores do que 255? 
Simplesmente quebrando-os em duas 
partes de oito bits cada e colocando-os 
em duas memórias adjacentes. Assim, 
o computador armazena qualquer nú- 
mero até FFFF em hexa, ou 65 535 em 
decimal. 

O FFFF é um valor importante em 
computadores pessoais de oito bits, pois 
é o número máximo de posições ende- 
reçáveis de memória RAM. 

Números maiores ainda do que esses 
podem ser armazenados através do mes- 
mo estratagema: dividi-los em três, qua- 
tro ou até mais porções de oito bits. 

A maneira como esses bytes são or- 
ganizados depende do computador. A 
maior parte dos micros que usam o BA- 
SIC armazenam os bytes de menor va- 
lor (chamados LSB, ou least significant 
byte) nas memórias de endereço mais 
baixo, e os bytes de maior valor (MSB, 
ou most significant byte), nas memórias 
de endereço mais alto. 

Outros computadores, como os com- 
patíveis com o TRS-Color, fazem exa- 
tamente o contrário. 

Suponhamos agora que você queira 
encontrar o número decimal equivalen- 
te a dois hexadecimais armazenados em 
compartimentos vizinhos de memória 
(um número maior do que FF, quebra- 
do em dois). 

Nos microcomputadores das linhas 
Sinclair, TRS-80, MSX e Apple I bas- 
ta converter os dois hexadecimais (Hl 
e H2) para decimal (D) e depois fazer 
a seguinte operação: 


| 
| 
| 1 


BIiM, DEC. MEX. 
BINARID 


DEC MAL 


RE + by. 0] + E 


DECIMAL TOTAL = 201 


HEZADECIMAI 


HEX TOTAL = C3 





D = Hi - 256 + H2 

Nos micros compatíveis com o TRS- 
Color, a expressão usada é a mesma, 
mas a ordem de HI e H2 é inversa; ou 
seja, O byte de maior valor aparece an- 
tes do menor byte. 


O SISTEMA OCTAL 


Existem apenas quatro sistemas de 
numeração que podem ser utilizados 
com vantagem na programação e 
operação de computadores digitais. 
Você já conhece três deles: o sistema 
binário, que é o natural para um 
computador digital; o sistema deci- 
mal, espontaneamente utilizado pe- 
lo ser humano; e o sistema hexadeci- 
mal, cuja base (16) é uma potência de 
2. Essa correspondência facilita enor- 
memente sua utilização pelo pro- 
gramador. 

O quarto sistema de numeração 
que pode ser usado com computado- 
res digitais é o sistema octal, ou se- 

ja, de base 8, que é também uma po- 
tência do número 2. Apesar disso, O 


octal está entrando em desuso, pois 
não foi universalmente adotado pe- 
los fabricantes de microcompu- 
tadores. | 

O octal tem 8 dígitos: O, 1, 2, 3, 
4,5,6,7€8. O sistema de conversão 
de um número em octal para decimal 
é semelhante ao usado com o hexa- 
decimal, só que o multiplicador é 8. 
Por exemplo: 


423 =4x604+2x8+3=275 


Alguns computadores pessoais 
permitem representar constantes em 
octal (&0), ou têm funções de conver- 
são (OCTS). 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





INnnENO PRÓXIMO NUMEROHEEEEHHIIl 


PROGRAMAÇÃO DE JOGOS 
Aprenda a fazer contagem de tempo e de pontos no computador, 
tornando seus jogos ainda mais emocionantes. 


APLICAÇÕES 
Como utilizar o computador para organizar seu arquivo e 
manter em ordem as suas coleções. Armazene informações. 


PROGRAMAÇÃO BASIC 
O que são, na prática, as instruções GOTO e GOSUB. Programas 
para cálculo, adivinhação e jogos de dados. 
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